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111111 000000 SSSSSSSS UU UU BBBBBBBB RRRRRRRR AAAAAA MM MM SSSSSSSS 
IIII11 000000 SSSSSSSS_ UU UU BBBBBBBB RRRRRRRR AAAAAA MM MM SSSSSSSS 
I] 00 00 $$ UU UU BB BB RR RR AA AA MMMM MMMM SS 
I] 00 00 SS UU UU BB BB RR RR AA AA MMMM MMMM SS 
Il 00 00 SS UU UU BB BB RR RR AA AA MM MM MM SS 
Il 00 00 SS UU UU BB BB RR RR AA AA MM MM MM SS 
I] 00 00 SSSSSS UU UU BBBBBBBB RRRRRRRR AA AA MM MM SSSSSS 
II 00 00 SSSSSS UU UU BBBBBBBB RRRRRRRR aw AA MM MM SSSSSS 
II 00 00 SS UU UU BB BB RR RR AAAAAAAAAA $MM MM SS 
II 00 00 SS UU UU BB BB RR RR AAAAAAAAAA $MM MM SS 
II 00 00 SS UU UU BB BB RR RR AA AA MM MM SS eeee 
I] 00 SS UU UU BB BB RR RR AA AA MM MM SS eeee 
IIIIII 000000 SSSSSSSS UUUUUUUUUU = BBBBBBBB RR RR AA AA MM MM SSSSSSSS eevee 
IIIIII 000000 SSSSSSSS UUUUUUUUUU = BBBBBBBB RR RR AA AA MM MM SSSSSSSS cove 
LL III] SSSSSSSS 
LL III1I! SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL 111] SSSSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
thee ty Sy La CORPORATION, MAYNARD. MASSACHUSETTS. 


1GH 
SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorree 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION OF THE ABOVE Tel th NOTICE. THIS SOFTWARE OR ANY OTHER 
ES hy MAY A} BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERS NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IRARRARASAALASALASASALELELESSARRASE ASE SESE REAR ESSERE RRR ERE E REESE RESELL ARES SS 
; AUTHOR: D. N. CUTLER 16-MAR-1977 
; MODIFIED BY: 
v02-005 ACG0237 Andrew C. Goldstein, 99-Dec-1981 11:39 
Add copnedrat . window support; check mapping against 


V02-004 GRR2004 Greg R. Rober 14-Jun-1981 
Added alternate entry point to * 1OCSCVTLOGPHY 
v02-003 ACGO176 Andrew C. Goldstein, 6-Jun-1980 13:54 


Redirect UCB to file's UCB on unsuccessful virtual map 
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000 
8 ; MACRO LIBRARY CALLS 
0 SDEVDEF DEFINE DEVICE CHARACTERISTIC BITS 
0 SDYNDEF DEFINE DATA STRUCTURE TYPE CODES 
0 $F CBDEF DEFINE FCB OFFSETS 
SIPLDEF DEFINE INTERRUPT PRIORITY LEVELS 
SIRPOEF :DEFINE IRP OFFSETS 
SPRDEF DEFINE PROCESSOR REGISTERS 
SPTEDEF ;DEFINE PAGE yaets ENTRY FIELDS 
SRVTDEF ;DEFINE RVT OFFSETS 
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4002600 i A EOS STO Co TOE ve fy 
58 SSSDEF DEFINE 1/0 STATUS CODES 
SUCBDEF “DEFINE UCB OFFSETS 
60 SVADEF IDEFINE VIRTUAL ADDRESS FIELDS 
00 61 SWCBDEF ‘DEFINE WCB OFFSETS 


isang 


Mow mnrowic 


vw 
oo 
VIwMne 
oOo 
oO 
oa 
DOP &NOVIM MOWUIlE — 


51 74 A 
neaed : taht > 
1 1 

00 51 


a 


uw 
— 
[=] 
So 

oun» 


> 


= 
a] 
MOOS 


OW FWNVWE FW MUI 


Rr: 
000 
$8 
ah 
$8 
33 
00000000 
0000 
iss 
& BY 
@ Bil 
oa 
3 is 
8 
a Be 
i 
i He 


— tS QOOOOOOOOCSOD SPREE AS SENS OPERAS CANOE CNS ORES: 


Oo 
OONAU EW O ODNOAUE WIN OO 


dw a a nt 


D paen ACCESS 
CTION 


PWN OODNOA VNES WIN 9 OD NAMEN SO OONOULE WW 
‘ 


G 10 
mas STORAGE 17 U-HEESE ONSET UOTE Stat an 


-SBTTL APPLY ECC CORRECTION 


; ; 1OCSAPPLYECC - APPLY ECC CORRECTION 


: THIS ROUTINE IS CALLED TO APPLY AN ECC CORRECTION TO DATA THAT HAS BEEN 
; TRANSFERED INTO MEMORY FROM A DISK DEVICE. 


RO = NUMBER OF BYTES OF DATA THAT WERE TRANSFERED UP TO, BUT NOT 
INCLUDING, BLOCK TO BE CORRECTED (MUST BE A MULTIPLE OF 512 

RS = DEVICE UNIT UCB ADDRESS. 

UCBSW_BCNT(RS) = LENGTH OF TRANSFER IN BYTES. 

UCBSW~ =ECY (RD) = STARTING BIT NUMBER OF ER ROR BURST. 

UCBSW-EC2(R5) = EXCLUSIVE OR CORRECTION PATTERN. 

UCBSL~ “SVAPTE(RS) = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE THAT MAPS 


; OUTPUTS: 


THE CORRECTION PATTERN IS EXCLUSIVE OR'ED WITH THE DATA IN MEMORY 
PROVIDING THE NECESSARY CORRECTION. 


R3 IS PRESERVED ACROSS CALL. 


.PSECT WIONONPAGED 
IOCSAPPLYECC: : ZAPPLY ECC CORRECTION 
PUSHR #*M<R3,R4> TSAVE REGISTERS 
MOVZWL UCBS$W_EC1(R5) ,R2 :GET STARTING BIT NUMBER OF ERROR BURST 
DECL [CONVERT TO RELATIVE BIT NUMBER 
BICB3 #*XF8,R2,R1 SISOLATE PATTERN SHIFT COUNT 
DIVL  #8,R :CALCULATE RELATIVE BYTE OFFSET IN BLOCK 
ADDL _RO.R [CALCULATE RELATIVE OFFSET IN BUFFER 
MOVZWL UCBS$W_EC2(R5) RO :GET EXCLUSIVE OR CORRECTION PATTERN 
ASHL R1,RO7RO ‘SHIFT PATTERN TO PROPER POSITION 
MOVL #3.R4 :SET LOOP COUNT 
10$: CMPW =—- R2, UCB$W_BCNT(RS) [BYTE OFFSET WITHIN RANGE? 
BGEQU SIF GEQU NO 
MOVZWL U Bu _BOFF (RS) ,R1 [GET BYTE OFFSET IN PAGE 
ADDL [CALCULATE BYTE OFFSET OF TRANFER PTE 
ASHL PAUASS._B [CALCULATE LONGWORD OFFSET TO TRANSFER PTE 
MOVL sycBSL ~BVABTECRSOERI. R3°:GET TRANSFER PTE 
BLSS $ :1F LSS VALID PTE 
BSBW paiva ta! :CONVERT TO VALID PTE 
20$: MULL3 #4 uce SYPN(RS) R1 SCALCULATE BYTE OFFSET TO SYSTEM PT 
INSV aPT Phi TRANSFER PTE INTO SYSTEM PAGE TABLE 
ptESS Pe PFA. Rahs SPTBASE Ri] ; 
ASHL aVA ;CONVERT SVPN TO SYSTEM VIRTUAL ADDRESS 
BSS _ #VASV~ SYSTER. R1,30$ ;SET SYSTEM VIRTUAL ADDRESS BIT 
30S: INVAL 1D R1 SINVALIDATE TRANSLATION BUFFER 
ADDLS UCB$W_BOFF(RS),R [CALCULATE BYTE OFFSET IN BLOCK 
INSV RS, #VASV_BYTE AV age? “BYTE, RI > INSERT BYTE OFFSET IN BLOCK 
XORB 1) CORRECT MEMORY BYTE 
ASHL  #-8,R0,RO AS NEXT CORRECTION BYTE INTO PLACE 
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se nC sUPDATE OFFSET 
B3 sf Pg eA 1 LOSE TR Re.10 Of ANY A, afore HY Bus FR MAKE? 
8 BA 122 408: POPR FAL RESTO REGISTERS 
68 AS) OO ag of ; BI sw fucose Ee, UCBSW_ DEvsTschs 8 ECC CORRECTION MADE 
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4 : ; .SBTTL CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 
f g : IOCSCVTLOGPHY = CONVERT LOGICAL BLOCK TO PHYSICAL ADDRESS 
74 130 THIS ROUTINE IS CALLED TO CONDITIONALLY CONVERT A LOGICAL BLOCK NUMBER 
t 1 ; TO A PHYSICAL DISK ADDRESS AND STORE THE RESULT IN THE 1/0 PACKET. 
f4 : INPUTS: 
7% 135: RO = LOGICAL BLOCK NUMBER TO BE CONVERTED. 
7% 4 g : R3 = 1/0 PACKET ADDRESS. 
t ; R5 = DEVICE UNIT UCB ADDRESS. 
r 133 + OUTPUTS: 
74 141: IF UCBSV NOCNVRT | Is CLEAR IN ycesi. DEVSTS, THE LOGICAL BLOCK NUMBER 
74 16 : IS CONVERTED PHYSICAL DISK ADDRESS USING THE DISK GEOMETRY PARA- 
7% 143: METERS IN TH HE Oc8. THE RESULT IS STORED IN THE MEDIA ADDRESS LONGWORD 
Boe We: 3 OF THE 1/0 PACKET. 
074 146 : IF UCBSV_NOCNVRT IS SET, THE BLOCK NUMBER IS STORED IN THE MEDIA ADDRESS 
9074 167 ; LONGWORD WITHOUT CONVERSION. 
0074 149 : IF THE ROUTINE IS ENTERED AT IOCSCVTLOGPHYU, THEN UCBSV_NOCNVRT IS 
Boe 130 3 IGNORED. 
074 13¢ : R3 IS PRESERVED ACROSS CALL. 
ae aa 
0074 135 .ENABLE LOCAL_BLOCK 
bord 133 LOCSCVTLOGPHY: : SCONVERT LOGICAL ak ock TO PHYSICAL ADDRESS 
38 A350): 0 sC0074)—Ss«a158 MOVL IRPSL_MEDIA(R3) ASSUME NO CONVER 
1p 68 AS) «602)—SCiEOs«0078~=—s«159 BBS Poeasy _NOCNVRT ,UCBSW_ DEvSts(RS) 10$ ;BYPASS CONVERSION IF SET 
O70 160 IOCSCVTLOGPHYU: : ONDITIONAL E 
52 44 05 9A O007D 161 MOVZBL UCBSL_DEVDEPEND(RS) ,R2 ies THURBER" 0 ECT TORS OPER TRACK 
31 ps 081 168 CLRL Ri ‘CLEAR HIGH PART OF DIVIDEND 
38 A3.—50——s« S00 é 3 (16 EDIV RO,RO,IRPS$L_MEDIA(R3)- : CALCULATE SECT OR NUMBER AND STORE 
52 45 05 9A 9 164 MOVZBL ucéey 0 DEVDEPEND+1(R5), R2 :GET NUMBER OF TRACKS PER CYLINDER 
51 50 50 S52 7B 008D 165 EDIV ;CALCULATE TRACK AND CYLINDER 
39 As. -51—-90s«0092 166 MOVBsR', ROR “Repraet (ny ‘STORE TRACK NUMBER 
AAs 50 80 096 16 MOVW RO. IRPSL-MEDIA+2(R3) ;STORE CYLINDER NUMBER 
05 009A 168 10$:  RSB ; 
$98 13 
98 170 
098 171 


-DISABLE LOCAL_BLOCK 
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_ «SBTTL MAP VIRTUAL TO LOGICAL BLOCK 
; 1OCSMAPVBLK = MAP VIRTUAL TO LOGICAL BLOCK 


: THIS os pt IS CALLED TO MAP A VIRTUAL BLOCK TO A LOGICAL BLOCK USING A 
; MAPPING WINDOW. 


GOOCOOOoooooeo 


AN 
TO 
173 
133 
Hf 
iH 
158 
! ? : INPUTS: 
1 : : RO = VIRTUAL BLOCK NUMBER. 
183 ; Rl = NUMBER OF BYTES TO MAP. 
184 ; Rg = ADDRESS OF WINDOW MAPPING BLOCK. 
38 $3 R5 = UCB ADDRESS OF DEVICE UNIT. 
O98 $ + OUTPUTS: 
O98 183 : RO LOW BIT CLEAR INDICATES A TOTAL MAPPING FAILURE. 
098 191 : R2 = NUMBER OF UNMAPPED BYTES. 
098 138 ; RO LOW BIT SET INDICATES PARTIAL MAP WITH: 
S690 195 : R1 = LOGICAL BLOCK NUMBER OF FIRST BLOCK. 
098 196 : Re = NUMBER OF UNMAPPED 
098 197 ; = UCB ADDRESS OF DEVICE "Nit (POSSIBLY MODIFIED). 
098 199: R3 IS PRESERVED ACROSS CALL. 
aie 
098 j ENABLE LOCAL_BLOCK 
0096 4 10$:  BUG_CHECK STRNOTWCB,FATAL ;STRUCTURE IS NOT A WINDOW BLOCK 
O9F 6 JOCSMAPVBL :MAP VIRTUAL TO LOGICAL BLOCK 
O9F 0$: DSBint UCase FIPL(RS) i SYNCHRONIZE ACCESS TO SYSTEM DATABASE 
O1DA 8F A6 8 PUSH <RT,R RS. /R4,R6,R7,RB> 3 SAVE REGIST ERS 
57 FF Ag 9 OAA 0 ROVAB arr ng). *R VE START VBN -1 
53 52 OD At 10 MOVL  R2,R :GET COPY POF WINDOW ADDRESS 
Bt I : THE WINDOW MAY CONSIST OF A CHAIN OF WCB SEGMENTS. SEARCH THROUGH THE 
1 213 : CHAIN UNTIL WE FIND ONE WHICH IS BEYOND THE DESIRED VBN OR WE REACH 
1% : THE END OF THE CHAIN, 
12 OA A3 91 1 1 Sos: cMPB 4 $B_TYPE(R3) .ADYNSC_WCB jSEE IF THIS IS REALLY A WINDOW 
2c a3_—s 550 if 3 18 CMPL RO, WCBSL_STVBN(R3) [CHECK VBN AGAINST START yen OF WINDOW 
1F 1 BLSSu 408 :BR ANCH IF VBN PRECEDES WIND 
52. 53 «OD 0 MOVL R3,R2 TELSE A DVANCE TO THIS WINDOW SEGMENT 
53° 20 A2 p cb MOVL WwW WCBSL_ LINK(R2),R3 [LOOK AT NEXT WINDOW SEGME 
EB c ; BNEQ [BRANCH TO LOOK AT IF IT EXISTS 
53 16 A2 3¢ £8 4 408 MOVZWL WCBSW_NMAP(R2),R3 :GET COUNT OF RETRIEVAL POINTERS 
1 1 CA 5 BEQL [BRANCH IF EMPTY WINDOW 
54 2C a2 D C : MOVAL WCBSL_STVBN(R2) ,R4 POINT TO STARTING VBN 
50 C3 D SUBL.  (R4)+7 He T STARTING VBN FROM DESIRED 
17 38 A 5 F D 8 BS #DEVSV_ $QD ,UCBSL -DEVCHARGR 70 SEQUENTIAL DEVICE 
F 00D BLSSU Mat ven PRECEDES WINDOW 
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DA 0 
DA $ 
DA ; SCAN THE WINDOW, SUBTRACTING THE COUNT FIELD OF EACH POINTER FROM THE 
DA : CURRENT RELATIVE BLOCK NUMBER. 
DA ih 
51 84 3¢ DA : 50$ MOVZWL (R4)+,R1 :GET COUNT FIELD OF RETRIEVAL POINTER 
0 51 ¢ D SUBL _-R1,RO ‘SUBTRACT FROM REL ATIVE BLOCK 
12 TF OO 8 BLSSU - 80$ {BRANCH IF VBN L OCAT TED IN, THIS SOTNITER 
4 D5 E TSTL  (R4)4 SSKIP L FIELD. POINT 
F353 —=O*#F E 40 SOBGTR R3,50$ SLOOP THRU Wi 
: D4 Oe? 41 60$: CLRL RO VBN IS BEYOND WINDOW 
55 10 A2 DO O0E9 4¢ MOVL WCBSL_ ORGUCB(R2) ,R5 SREDIRECT UCB 10 VOLUME CONTAINING THE FILE 
SF 11 «OOED «=o BRB 140$ SRETURN FAILURE 
Orr See 
OEF 46 ; DEVICE IS A SEQUENTIAL DEVICE. FIRST MAPPING POINTER CONTAINS THE yee ADDRESS 
OEr 47 ; OF THE CURRENT VOLUME THAT IS BEING PROCESSED. ALL BYTES ALWAYS M 
OEF 49 ° 
55 64 DO OOEF 250 70$:  MOVL (R4),RS :GET CURRENT VOLUME UCB ADDRESS 
$5 11 aor BRB 120$ : 
OF4 33 3 
OOF4 254 ; FOUND THE RETRIEVAL POINTER CONTAINING THE STARTING VBN. RO NOW 
OOF4 255 : CONTAINS A NEGATIVE VALUE WHICH IS THE NUMBER OF BLOCKS BETWEEN 
OOF 36 : THE STARTING VBN AND THE END OF THE POINTER. 
OF4 258 ° 
58 50 00 Gor 4 36 80$: MOVL  RO,RB i SAVE # BLOCKS MAPPED PAST START VBN 
51 8 CO OOF? 260 ADDL (R4)+,R1 FIRST LBN BEYOND THIS POINTER 
50 (651~—S (C0 se ADDL _—R1,RO [COMPUTE STARTING LBN 
FD 635 ; 
ore 64 : IF THE NEXT RETRIEVAL POINTER 1S CONTIGUOUS WITH THE ONE FOUND, ADD 
OOF 65 : IN ITS COUNT TO HANDLE THE CASE WHERE A TRANSFER SPA Ns TWO POINTERS. 
FD 66 : NOTE THAT THE GREATEST NUMBER OF CONTIGUOUS POINTERS A TRANSFER CAN 
OFD 267 ; SPAN IS TWO. 
ey ae 
53 Dp? «O0FD % DECL 3 SEE IF TH HERE mS ANOTHER POINTER 
15 OOFF 271 BLEQ 908 BRANCH IF 
53 84 3C 0101 te MOVZWL (R4)+,R3 [GET COUNT OF NNEXT RETRIEVAL POINTER 
64 51 «D1 0104 27 CMPL RT, (RO) [SEE IF THE NEXT POINTER 1S CONTIGUOUS 
3 if 107 27% BNEQ 08 ‘BRANCH IF NOT 
58 C 9 re SUBL  R3,R8 ADD TO # BLOCKS MAPPED (NEGATIVE) 
10C 377 ; 
10¢ 28 : EXTRACT THE LBN AND RVN COMPONENTS OF THE STARTING "'LBN’’ AND SWITCH 
¢ i : TO THE RIGHT UCB IF THIS IS A MULTI-VOLUME SET. 
10€ p 
51 50 18 OO EF 01 c é 90$: EXTZV # 24. WRI ;EXTRACT LBN PART 
50 50 o8 1 FF 1 EXTZV #24 “RO SEXTRACT RVN 
0 3 116 4 BEQL of” :BRANCH IF NOT VOLUME SET 
56 1C Ag 00 11 5 MOVL wWCBSL R2) ,R6 GET RELATIVE VOLUME TABLE ADDR 
55 40 A660 00 O11C 6 MOVL  RVT t ~HUBL S4—40R6) CROD, rb :GET THE RIGHT UCB ADDRESS 
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01 } 7 
154 : ; CHECK THE RANGE OF VBN'S PROVIDED BY THE MAP POINTER AGAINST THE 
101 : FILE SIZE RECORDED IN THE FCB. REDUCE IT IF THE FCB INDICATES A 
} ! $3 ; SMALLER FILE SIZE THAN THE WINDOW. 
121 93 ° 
12 0B A2 02.-« EO ~(0121 «= 294 1008: ~=—aBBS #wCBSV NOTE CP. WCBSB_ ACCESS (R2) 110$ ;SKIP CHECK IF NO FCB 
6 18 Ae 00 0126 295 OVL  WCBSL_FCB(R2),R6 GET FCB ADDRESS 
38 A c 10A 96 SUBL FCBSLFILESIZE(R6),R7 :COMPUTE NEG BLOCKS PAST DESIRED VBN 
F 1 9 BGEQU 60S ‘BRANCH IF VBN PAST END OF FILE 
58 O57 b 1 98 CMPL = R7_RB [COMPARE AGAINST BLOCKS MAP PED 
; F 01 BLSSu. 1168 ‘BRANCH IF LESS MAPPED BY WINDOW 
58 DO 00 OVL R7,RB SELSE LIMIT TO FILE SIZE 
1 3 
| 08 : SEE If THE ENTIRE TRANSFER 1S MAPPED CONTIGUOUSLY. 
1 Be 
90000900" EF 06 1 3 110$: INCL  PMSS$GL_HIT :COUNT A WINDOW HIT 
58 5 09 1 ; 0 ASHL #9,R8,R8 sCONVERT TO # BYTES MAPPED 
03 1D 014 08 BVS [BRANCH IF COUNT IS HUGE 
6E 58 CO 0144 9 ADDL (SP) SSUBTRACT FROM BYTES DESIRED 
02 18 0147 310 BGEQ ‘ bs ‘BRANCH IF NOT TOTAL MAP 
6E D4 0149 311 1208: CLRL (SP) [ZERO INDICATES COMPLETE MAP 
50 01 DO 0148 1 130$:  MOVL #Sss NORMAL .R SINDICATE SUCCESS 
Oipc BF SOBA O014 13 140$: POPR M<R2,R3,R4, Rs. R7,R8> :RESTORE REGISTERS 
013 14 ENBINT TALLOW INTERRUPTS 
05 0135 13 RSB : 
0156 i$ DISABLE LOCAL_BLOCK 
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‘+ ~-SBTTL UPDATE TRANSFER PARAMETERS 
; 1OCSUPDATRANSP - UPDATE TRANSFER PARAMETERS 


: THIS ROUTINE IS CALLED TO UPDATE THE TRANSFER PARAMETERS AFTER A DISK ERROR 
; HAS BEEN DISCOVERED BUT GOOD DATA WAS TRANSFERED. < a 


INPUTS: 
RO = NUMBER f BYTES OF DATA THAT WERE TRANSFERED (MUST BE A MULTIPLE 
RS = DEVICE UNIT UCB ADDRESS. 


; UCBSW BENT 5) = LENGTH OF TRANSFER IN BYTES, 


hd 


RRENT SECTOR AN ~ Mag’ Leese 
we CYLINDER 
= 
FER 


=s 
CU 
CU 
5) 
ANS 
; OUTPUTS: 

THE NUMBER OF BYTES REMAINING TO BE TRANSFERED, THE SYSTEM VIRTUAL 

rt gt EF ve NEXT PTE, AND THE CURRENT DISK ADDRESS OF THE TRANSFER 


R3 IS PRESERVED ACROSS CALL. 
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IOCSUPDATRANSP: : ;UPDATE TRANSFER PARAMETERS 
SUBW RO,UCBSW_BCNT(RS) ; CALCULATE Arpt BYTES TO TRANSFER 
-7,RO,R CALCULATE PTE LONGWORDS TO SKIP OVER 
ADDL RO,UCBSL_SVAPTE (RS) ;UPDATE SYSTEM VIRTUAL ADDRESS OF NEXT PTE 
DIVL #4,R0 s;CALCULATE NUMBER OF SECTORS TRANSFERED 
ADDB RO,UCBSW_DA(R5) UPDATE SECTOR ADDRESS 
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RIPPLE CARRY FROM SECTOR TO TRACK AND FROM TRACK TO CYLINDER 


10S: CMPB CBSL_DEVDEPEND(RS) ,.UCBSW_DA(R5) ;SECTOR OVERFLOW? 
BGTRU 208 sTF GTRU NO 
S UCBSL -DEVDEP ND (RS) -UCBSW DACRS) ; SUBTRACT ou! A TRACK 
INCB = UCBSW~DA+ ) NT TRACK ADDRESS 
UCBsi DEVDEPEND+1(R5), ucé u. ? +7(R5) ATRACK. OVERFLOW? 
(R5) 
E CYLI 


A 
GTRU 
SUBB —s-: UBL -PEVDEPEND+1(R5), suchsi DA Aci :SUBTRACT OUT A CYLINDER 
INCW ucBsi_d¢ UPBAT NDER ADDRESS 
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Symbol table -SEP-1984 74 SYS.SR cli TOSUBRAMS.. MAR; 1 (6) 
ee ie keeeeene 
= 
DYNSC “cB = $o000012 
EXESFINISHIO eeeeeeee 86 
FCBSL_FILESIZE = 38 
LYECC ° RG 
IOCSCVTLOGPHY 4 RG 
IOCSCVTLOGPHYU 7D RG 
IOCSMAPVBLK OF RG 
IOCSPTETOPFN reteeeee 8 
IOCSSENSEDISK 000192 RG 
IOCSUPDATRANSP Bb RG 0 
IRPSL_MED = 0 
MMGS$GC_SPTBASE eeeneeee = § os 
PMSSGL_HIT eeeeeeee =X 0 
~1PC = 00000012 
PRS _TBIS = 4H 3A 
PTESS_PFN = 00000015 
PTESV_PFN = Hs 
RVT$SL_UCBLST = 00000044 
SS$_NORMAL = 44 4d 
UCBSB_F IPL = sh 4 
UCBS$L_DEVCHAR = 444 
UCBSL_DEVDEPEND = 00000044 
UCBSL_MAXBLOCK = 44d! 
UCBSL_SVAPTE = 000000 
UCBSL_SVPN = 00000074 
UCBSM_ECC = 00000001 
UCBSV_NOCNVRT = BORO OE 
UCBSW_BCNT = i444 E 
UCBSW_BOFF = 448 7C¢ 
UCBSW_DA = 000000B8C 
UCBSW_DC = 44 $4649 
UCB$W_DEVSTS = $4 
UCBSW_EC1 = 000 Bate 
UCBSW_EC2 = 000000C6 
VASS_BYTE = 0000 B88 
VASV_BYTE = 0 4 0 
VASV_SYSTEM = 1F 
CB$B_ACCESS = 900 8 
WCBSB_TYPE = A 
WCBSL_FCB = 1 
CBSL_LI = BF 
WCBSL_ORGUCB = 
SL_RVT s 1¢ 
WCBSL_STVBN = 0000 ‘ 
WCBSV_NOTFCP = 3 0 
“NMAP = 0000001 
$e eres ere ere eseeee + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
-) 00 ¢ -) NOPIC USR CON ABS LCL pea tte NOEXE NORD wet wovee BYTE 
itd 5 gf ( 9.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
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Psect synopsis ~SEP=1984 03:43:46 SYS.SRCJIOSUBRAMS .MAR; 1 (6) 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 9 :00:00. :00:00.9 

Command processing 13 8; ‘9 9 5: : 7:48 
pees I cabt ‘ 3 ° :12.8 0:00:54. ? 

m able sor :00:02. :00:08. 

Pass 5 9 :00: “ :00: BBs 

Symbol table output 7 0:00: 08 :00: 8-88 
Psect synopsis output 0:00:00. +88: 0.04 
Cross-reference output 0: 9: g- 09 0:00:00.00 
Assembler run totals 62 0:00:18.1 0:01:19.46 


The working set_Limit was 1500 pages. 

74962 bytes (147 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1452 non-local and 21 local symbols. 
$06 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


+ + 
: Macro library statistics H 


Macro Library nam Macros defined 
.$255$D0UA28: CSYS.OBJJLIB.MLB;1 13 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 6 
TOTALS (all libraries) 19 


1583 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: IOSUBRAMS/0BJ=0BJ$: IOSUBRAMS MSRC$: IOSUBRAMS/UPDATE=(ENH$: IOSUBRAMS) +EXECML$/LIB 
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